home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Easy Internet
/
Internet Training Corporation Easy Internet Rev21 (ITC).ISO
/
mac
/
DATA
/
1015.scp
< prev
next >
Wrap
Text File
|
1997-10-22
|
641b
|
52 lines
!
@ANSWER
@HANGUP
EXIT 0
!
@ORIGINATE
!
CHRDELAY 1
!
@LABEL 10
MATCHCLR
MATCHSTR 1 11 " username: "
MATCHREAD 300
NOTE "Connect script couldn't match \34 username: \34" 3
JUMP 99
!
@LABEL 11
IFSTR 11 12 "<Guest>"
IFSTR 11 12 ""
PAUSE 1
WRITE "^u\13"
JUMP 13
!
@LABEL 12
ASK 0 "Please enter name: "
WRITE "^*\13"
!
@LABEL 13
MATCHCLR
MATCHSTR 1 14 " assword: "
MATCHREAD 300
NOTE "Connect script couldn't match \34 password: \34" 3
JUMP 99
!
@LABEL 14
IFSTR 12 15 ""
PAUSE 1
WRITE "^p\13"
JUMP 16
!
@LABEL 15
ASK 1 "Please enter password: "
WRITE "^*\13"
!
@LABEL 90
PAUSE 1
EXIT 0
!
@LABEL 99
PAUSE 60
EXIT -6002 "Connection script failed."